Enter debugger. Returns if user says \"continue\".
Arguments are mainly for use when this is called
from the internals of the evaluator.
You may call with no args, or you may
pass nil as the first arg and any other args you like.
In that case, the list of args after the first will
be printed into the backtrace buffer."])
(fset 'debugger-step-through #[nil "└┬├!ê─ ç" [t debugger-step-after-exit message "Proceding, will debug on next eval or call." exit-recursive-edit] 2 "\
Proceed, stepping through subexpressions of this expression.
Enter another debugger on next entry to eval, apply or funcall." nil])
A line starts with `*' if exiting that frame will call the debugger.
Type \\[debugger-frame] or \\[debugger-frame-clear] to set or remove the `*'.
When in debugger due to frame being exited,
use the \\[debugger-return-value] command to override the value
being returned from that frame.
Use \\[debug-on-entry] and \\[cancel-debug-on-entry] to control
which functions will enter the debugger when called.
Complete list of commands:
\\{debugger-mode-map}"])
(fset 'debug-on-entry #[(function) "└ ê┴\nK!½à├─\n\"ê\nK:¼ä┼\n!ê\nK:¼à├╞\n\"ê\n╟\nëK╚#Mê\n >¼å\n B \nç" [debugger-reenable subrp function error "Function %s is a primitive" debug-convert-byte-code "Definition of %s is not a list" debug-on-entry-1 t debug-function-list] 5 "\
Request FUNCTION to invoke debugger each time it is called.
If the user continues, FUNCTION's execution proceeds.
Works by modifying the definition of FUNCTION,
which must be written in Lisp, not predefined.
Use \\[cancel-debug-on-entry] to cancel the effect of this command.
Redefining FUNCTION also does that." "aDebug on entry (to function): "])
(fset 'cancel-debug-on-entry #[(&optional function) "└ ê ½ù ┬ÿ¼Æ ├ ëK─#Mê┼ \" ç╟╚!ê╔╩\"ç" [debugger-reenable function "" debug-on-entry-1 nil delq debug-function-list message "Cancelling debug-on-entry for all functions" mapcar cancel-debug-on-entry] 5 "\
Undo effect of \\[debug-on-entry] on FUNCTION.
If argument is nil or an empty string, cancel for all functions." "aCancel debug on entry (to function): "])
(byte-code "└┴Mê┬├Mç" [debug-convert-byte-code #[(function) "Kë:?¡╣┬ ├\"┼A@╞8╟8FC╔¢½è╩╔8DB╦8½ê╦8B╠@BBM*)ç" [function defn append nil contents byte-code 2 3 body 5 interactive 4 lambda] 6] debug-on-entry-1 #[(function defn flag) "└ !½à┬├\"ç @┼=½ê╞ A#ç @╚=¼à┬╔\"ê╩ë AA@;½ô═ ¢ @ A@ AA@E¬ì AA @ A@D@╬Ü=½â ¬ô½ë╧Bñ¬åAñ*ç" [subrp defn error "%s is a built-in function" function macro debug-on-entry-1 flag lambda "%s not user-defined Lisp function" nil prec tail 3 (debug 'debug) (debug 'debug)] 4]] 2)
(fset 'debugger-list-functions #[nil "└É ¼à┬├!¬ƒ┬─!ê ë½Ä╞@!ê╟ êAë¼r)┬╚!ê┬╔!æç" ["*Help*" debug-function-list princ "No debug-on-entry functions now\n" "Functions set to debug on entry:\n\n" list prin1 terpri "Note: if you have redefined a function, then it may no longer\n" "be set to debug on entry, even if it is in the list."] 4 "\
Display a list of all the functions now set to debug on entry." nil])